home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / its / its-kata.el.z / its-kata.el
Encoding:
Text File  |  1998-05-21  |  19.5 KB  |  517 lines
  1. ;; Basic Roma-to-KataKana Translation Table for Egg
  2. ;; Coded by S.Tomura, Electrotechnical Lab. (tomura@etl.go.jp)
  3.  
  4. ;; This file is part of Egg on Nemacs (Japanese Environment)
  5.  
  6. ;; Egg is distributed in the forms of patches to GNU
  7. ;; Emacs under the terms of the GNU EMACS GENERAL PUBLIC
  8. ;; LICENSE which is distributed along with GNU Emacs by the
  9. ;; Free Software Foundation.
  10.  
  11. ;; Egg is distributed in the hope that it will be useful,
  12. ;; but WITHOUT ANY WARRANTY; without even the implied
  13. ;; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  14. ;; PURPOSE.  See the GNU EMACS GENERAL PUBLIC LICENSE for
  15. ;; more details.
  16.  
  17. ;; You should have received a copy of the GNU EMACS GENERAL
  18. ;; PUBLIC LICENSE along with Nemacs; see the file COPYING.
  19. ;; If not, write to the Free Software Foundation, 675 Mass
  20. ;; Ave, Cambridge, MA 02139, USA.
  21.  
  22. ;; 90.3.2   modified for Nemacs Ver.3.3.1
  23. ;;    by jiro@math.keio.ac.jp (TANAKA Jiro)
  24. ;;     proposal of keybinding for JIS symbols
  25. ;; 92.3.16  modified for Mule Ver.0.9.1 by K.Handa <handa@etl.go.jp>
  26. ;; 92.3.23  modified for Mule Ver.0.9.1 by K.Handa <handa@etl.go.jp>
  27. ;;    defrule -> its-defrule, define-its-mode -> its-define-mode
  28.  
  29. ;; 92.3.16 by K.Handa
  30. ;;(define-its-mode "roma-kata"  " a$B%"(B" t)
  31.  
  32. (eval-when-compile (require 'egg))
  33.  
  34. (its-define-mode "roma-kata"  "$B%"(B" t)
  35.  
  36. (dolist (aa '("k" "s" "t" "h" "y" "r" "w" "g" "z" "d" "b"
  37.          "p" "c" "f" "j" "v"))
  38.   (its-defrule (concat aa aa) "$B%C(B" aa))
  39.  
  40. (its-defrule "tch"  "$B%C(B" "ch")
  41.  
  42. (dolist (q1 '("b" "m" "p"))
  43.   (its-defrule (concat "m" q1) "$B%s(B" q1))
  44.  
  45. (its-defrule "N" "$B%s(B")
  46.  
  47. (defvar enable-double-n-syntax nil "*Enable \"nn\" input for \"$B%s(B\" ")
  48.  
  49. (its-defrule-conditional "n"
  50.   ((not enable-double-n-syntax) "$B%s(B")
  51.   (t nil))
  52. (its-defrule-conditional "nn"
  53.   ( enable-double-n-syntax "$B%s(B")
  54.   (t nil))
  55.  
  56. (its-defrule "n'" "$B%s(B")
  57.  
  58. (let ((small '"x" ))
  59.   (its-defrule (concat small "a") "$B%!(B")
  60.   (its-defrule (concat small "i") "$B%#(B")
  61.   (its-defrule (concat small "u") "$B%%(B")
  62.   (its-defrule (concat small "e") "$B%'(B")
  63.   (its-defrule (concat small "o") "$B%)(B")
  64.   (its-defrule (concat small "ya") "$B%c(B")
  65.   (its-defrule (concat small "yu") "$B%e(B")
  66.   (its-defrule (concat small "yo") "$B%g(B")
  67.   (its-defrule (concat small "tu") "$B%C(B")
  68.   (its-defrule (concat small "tsu") "$B%C(B")
  69.   (its-defrule (concat small "wa") "$B%n(B")
  70.   )
  71.  
  72. (its-defrule   "a"    "$B%"(B")
  73. (its-defrule   "i"    "$B%$(B")
  74. (its-defrule   "u"    "$B%&(B")
  75. (its-defrule   "e"    "$B%((B")
  76. (its-defrule   "o"    "$B%*(B")
  77. (its-defrule   "ka"   "$B%+(B")
  78. (its-defrule   "ki"   "$B%-(B")
  79. (its-defrule   "ku"   "$B%/(B")
  80. (its-defrule   "ke"   "$B%1(B")
  81. (its-defrule   "ko"   "$B%3(B")
  82. (its-defrule   "kya"  "$B%-%c(B")
  83. (its-defrule   "kyu"  "$B%-%e(B")
  84. (its-defrule   "kye"  "$B%-%'(B")
  85. (its-defrule   "kyo"  "$B%-%g(B")
  86. (its-defrule   "sa"   "$B%5(B")
  87. (its-defrule   "si"   "$B%7(B")
  88. (its-defrule   "su"   "$B%9(B")
  89. (its-defrule   "se"   "$B%;(B")
  90. (its-defrule   "so"   "$B%=(B")
  91. (its-defrule   "sya"  "$B%7%c(B")
  92. (its-defrule   "syu"  "$B%7%e(B")
  93. (its-defrule   "sye"  "$B%7%'(B")
  94. (its-defrule   "syo"  "$B%7%g(B")
  95. (its-defrule   "sha"  "$B%7%c(B")
  96. (its-defrule   "shi"  "$B%7(B")
  97. (its-defrule   "shu"  "$B%7%e(B")
  98. (its-defrule   "she"  "$B%7%'(B")
  99. (its-defrule   "sho"  "$B%7%g(B")
  100. (its-defrule   "ta"   "$B%?(B")
  101. (its-defrule   "ti"   "$B%A(B")
  102. (its-defrule   "tu"   "$B%D(B")
  103. (its-defrule   "te"   "$B%F(B")
  104. (its-defrule   "to"   "$B%H(B")
  105. (its-defrule   "tya"  "$B%A%c(B")
  106. (its-defrule   "tyi"  "$B%F%#(B")
  107. (its-defrule   "tyu"  "$B%A%e(B")
  108. (its-defrule   "tye"  "$B%A%'(B")
  109. (its-defrule   "tyo"  "$B%A%g(B")
  110. (its-defrule   "tsu"  "$B%D(B")
  111. (its-defrule   "cha"  "$B%A%c(B")
  112. (its-defrule   "chi"  "$B%A(B")
  113. (its-defrule   "chu"  "$B%A%e(B")
  114. (its-defrule   "che"  "$B%A%'(B")
  115. (its-defrule   "cho"  "$B%A%g(B")
  116. (its-defrule   "na"   "$B%J(B")
  117. (its-defrule   "ni"   "$B%K(B")
  118. (its-defrule   "nu"   "$B%L(B")
  119. (its-defrule   "ne"   "$B%M(B")
  120. (its-defrule   "no"   "$B%N(B")
  121. (its-defrule   "nya"  "$B%K%c(B")
  122. (its-defrule   "nyu"  "$B%K%e(B")
  123. (its-defrule   "nye"  "$B%K%'(B")
  124. (its-defrule   "nyo"  "$B%K%g(B")
  125. (its-defrule   "ha"   "$B%O(B")
  126. (its-defrule   "hi"   "$B%R(B")
  127. (its-defrule   "hu"   "$B%U(B")
  128. (its-defrule   "he"   "$B%X(B")
  129. (its-defrule   "ho"   "$B%[(B")
  130. (its-defrule   "hya"  "$B%R%c(B")
  131. (its-defrule   "hyu"  "$B%R%e(B")
  132. (its-defrule   "hye"  "$B%R%'(B")
  133. (its-defrule   "hyo"  "$B%R%g(B")
  134. (its-defrule   "fa"   "$B%U%!(B")
  135. (its-defrule   "fi"   "$B%U%#(B")
  136. (its-defrule   "fu"   "$B%U(B")
  137. (its-defrule   "fe"   "$B%U%'(B")
  138. (its-defrule   "fo"   "$B%U%)(B")
  139. (its-defrule   "ma"   "$B%^(B")
  140. (its-defrule   "mi"   "$B%_(B")
  141. (its-defrule   "mu"   "$B%`(B")
  142. (its-defrule   "me"   "$B%a(B")
  143. (its-defrule   "mo"   "$B%b(B")
  144. (its-defrule   "mya"  "$B%_%c(B")
  145. (its-defrule   "myu"  "$B%_%e(B")
  146. (its-defrule   "mye"  "$B%_%'(B")
  147. (its-defrule   "myo"  "$B%_%g(B")
  148. (its-defrule   "ya"   "$B%d(B")
  149. (its-defrule   "yi"   "$B%$(B")
  150. (its-defrule   "yu"   "$B%f(B")
  151. (its-defrule   "ye"   "$B%$%'(B")
  152. (its-defrule   "yo"   "$B%h(B")
  153. (its-defrule   "ra"   "$B%i(B")
  154. (its-defrule   "ri"   "$B%j(B")
  155. (its-defrule   "ru"   "$B%k(B")
  156. (its-defrule   "re"   "$B%l(B")
  157. (its-defrule   "ro"   "$B%m(B")
  158. (its-defrule   "la"   "$B%i(B")
  159. (its-defrule   "li"   "$B%j(B")
  160. (its-defrule   "lu"   "$B%k(B")
  161. (its-defrule   "le"   "$B%l(B")
  162. (its-defrule   "lo"   "$B%m(B")
  163. (its-defrule   "rya"  "$B%j%c(B")
  164. (its-defrule   "ryu"  "$B%j%e(B")
  165. (its-defrule   "rye"  "$B%j%'(B")
  166. (its-defrule   "ryo"  "$B%j%g(B")
  167. (its-defrule   "lya"  "$B%j%c(B")
  168. (its-defrule   "lyu"  "$B%j%e(B")
  169. (its-defrule   "lye"  "$B%j%'(B")
  170. (its-defrule   "lyo"  "$B%j%g(B")
  171. (its-defrule   "wa"   "$B%o(B")
  172. (its-defrule   "wi"   "$B%p(B")
  173. (its-defrule   "wu"   "$B%&(B")
  174. (its-defrule   "we"   "$B%q(B")
  175. (its-defrule   "wo"   "$B%r(B")
  176. (its-defrule   "ga"   "$B%,(B")
  177. (its-defrule   "gi"   "$B%.(B")
  178. (its-defrule   "gu"   "$B%0(B")
  179. (its-defrule   "ge"   "$B%2(B")
  180. (its-defrule   "go"   "$B%4(B")
  181. (its-defrule   "gya"  "$B%.%c(B")
  182. (its-defrule   "gyu"  "$B%.%e(B")
  183. (its-defrule   "gye"  "$B%.%'(B")
  184. (its-defrule   "gyo"  "$B%.%g(B")
  185. (its-defrule   "za"   "$B%6(B")
  186. (its-defrule   "zi"   "$B%8(B")
  187. (its-defrule   "zu"   "$B%:(B")
  188. (its-defrule   "ze"   "$B%<(B")
  189. (its-defrule   "zo"   "$B%>(B")
  190. (its-defrule   "zya"  "$B%8%c(B")
  191. (its-defrule   "zyu"  "$B%8%e(B")
  192. (its-defrule   "zye"  "$B%8%'(B")
  193. (its-defrule   "zyo"  "$B%8%g(B")
  194. (its-defrule   "ja"   "$B%8%c(B")
  195. (its-defrule   "ji"   "$B%8(B")
  196. (its-defrule   "ju"   "$B%8%e(B")
  197. (its-defrule   "je"   "$B%8%'(B")
  198. (its-defrule   "jo"   "$B%8%g(B")
  199. (its-defrule   "da"   "$B%@(B")
  200. (its-defrule   "di"   "$B%B(B")
  201. (its-defrule   "du"   "$B%E(B")
  202. (its-defrule   "de"   "$B%G(B")
  203. (its-defrule   "do"   "$B%I(B")
  204. (its-defrule   "dya"  "$B%B%c(B")
  205. (its-defrule   "dyi"  "$B%G%#(B")
  206. (its-defrule   "dyu"  "$B%B%e(B")
  207. (its-defrule   "dye"  "$B%B%'(B")
  208. (its-defrule   "dyo"  "$B%B%g(B")
  209. (its-defrule   "ba"   "$B%P(B")
  210. (its-defrule   "bi"   "$B%S(B")
  211. (its-defrule   "bu"   "$B%V(B")
  212. (its-defrule   "be"   "$B%Y(B")
  213. (its-defrule   "bo"   "$B%\(B")
  214. (its-defrule   "va"   "$B%t%!(B")
  215. (its-defrule   "vi"   "$B%t%#(B")
  216. (its-defrule   "vu"   "$B%t(B")
  217. (its-defrule   "ve"   "$B%t%'(B")
  218. (its-defrule   "vo"   "$B%t%)(B")
  219. (its-defrule   "bya"  "$B%S%c(B")
  220. (its-defrule   "byu"  "$B%S%e(B")
  221. (its-defrule   "bye"  "$B%S%'(B")
  222. (its-defrule   "byo"  "$B%S%g(B")
  223. (its-defrule   "pa"   "$B%Q(B")
  224. (its-defrule   "pi"   "$B%T(B")
  225. (its-defrule   "pu"   "$B%W(B")
  226. (its-defrule   "pe"   "$B%Z(B")
  227. (its-defrule   "po"   "$B%](B")
  228. (its-defrule   "pya"  "$B%T%c(B")
  229. (its-defrule   "pyu"  "$B%T%e(B")
  230. (its-defrule   "pye"  "$B%T%'(B")
  231. (its-defrule   "pyo"  "$B%T%g(B")
  232. (its-defrule   "kwa"  "$B%/%n(B")
  233. (its-defrule   "kwi"  "$B%/%#(B")
  234. (its-defrule   "kwu"  "$B%/(B")
  235. (its-defrule   "kwe"  "$B%/%'(B")
  236. (its-defrule   "kwo"  "$B%/%)(B")
  237. (its-defrule   "gwa"  "$B%0%n(B")
  238. (its-defrule   "gwi"  "$B%0%#(B")
  239. (its-defrule   "gwu"  "$B%0(B")
  240. (its-defrule   "gwe"  "$B%0%'(B")
  241. (its-defrule   "gwo"  "$B%0%)(B")
  242. (its-defrule   "tsa"  "$B%D%!(B")
  243. (its-defrule   "tsi"  "$B%D%#(B")
  244. (its-defrule   "tse"  "$B%D%'(B")
  245. (its-defrule   "tso"  "$B%D%)(B")
  246. (its-defrule   "xka"  "$B%u(B")
  247. (its-defrule   "xke"  "$B%v(B")
  248. (its-defrule   "xti"  "$B%F%#(B")
  249. (its-defrule   "xdi"  "$B%G%#(B")
  250. (its-defrule   "xdu"  "$B%I%%(B")
  251. (its-defrule   "xde"  "$B%G%'(B")
  252. (its-defrule   "xdo"  "$B%I%)(B")
  253. ;(its-defrule   "xwa"  "$B%n(B")
  254. (its-defrule   "xwi"  "$B%&%#(B")
  255. (its-defrule   "xwe"  "$B%&%'(B")
  256. (its-defrule   "xwo"  "$B%&%)(B")
  257.  
  258. ;;; Zenkaku Symbols
  259.  
  260. (its-defrule   "1"   "$B#1(B")
  261. (its-defrule   "2"   "$B#2(B")
  262. (its-defrule   "3"   "$B#3(B")
  263. (its-defrule   "4"   "$B#4(B")
  264. (its-defrule   "5"   "$B#5(B")
  265. (its-defrule   "6"   "$B#6(B")
  266. (its-defrule   "7"   "$B#7(B")
  267. (its-defrule   "8"   "$B#8(B")
  268. (its-defrule   "9"   "$B#9(B")
  269. (its-defrule   "0"   "$B#0(B")
  270.  
  271. ;;;(its-defrule   " "   "$B!!(B")
  272. (its-defrule   "!"   "$B!*(B")
  273. (its-defrule   "@"   "$B!w(B")
  274. (its-defrule   "#"   "$B!t(B")
  275. (its-defrule   "$"   "$B!p(B")
  276. (its-defrule   "%"   "$B!s(B")
  277. (its-defrule   "^"   "$B!0(B")
  278. (its-defrule   "&"   "$B!u(B")
  279. (its-defrule   "*"   "$B!v(B")
  280. (its-defrule   "("   "$B!J(B")
  281. (its-defrule   ")"   "$B!K(B")
  282. (its-defrule   "-"   "$B!<(B") ;;; JIS 213c  ;;;(its-defrule   "-"   "$B!](B")
  283. (its-defrule   "="   "$B!a(B")
  284. (its-defrule   "`"   "$B!.(B")
  285. (its-defrule   "\\"  "$B!o(B")
  286. (its-defrule   "|"   "$B!C(B")
  287. (its-defrule   "_"   "$B!2(B")
  288. (its-defrule   "+"   "$B!\(B")
  289. (its-defrule   "~"   "$B!1(B")
  290. (its-defrule   "["    "$B!V(B")  ;;(its-defrule   "["   "$B!N(B")
  291. (its-defrule   "]"    "$B!W(B")  ;;(its-defrule   "]"   "$B!O(B")
  292. (its-defrule   "{"   "$B!P(B")
  293. (its-defrule   "}"   "$B!Q(B")
  294. (its-defrule   ":"   "$B!'(B")
  295. (its-defrule   ";"   "$B!((B")
  296. (its-defrule   "\""  "$B!I(B")
  297. (its-defrule   "'"   "$B!G(B")
  298. (its-defrule   "<"   "$B!c(B")
  299. (its-defrule   ">"   "$B!d(B")
  300. (its-defrule   "?"   "$B!)(B")
  301. (its-defrule   "/"   "$B!?(B")
  302.  
  303. (defvar use-kuten-for-period t "*$B%T%j%*%I$r6gE@$KJQ49$9$k(B")
  304. (defvar use-touten-for-comma t "*$B%3%s%^$rFIE@$KJQ49$9$k(B")
  305.  
  306. (its-defrule-conditional "."
  307.   (use-kuten-for-period "$B!#(B")
  308.   (t "$B!%(B"))
  309.  
  310. (its-defrule-conditional ","
  311.   (use-touten-for-comma "$B!"(B")
  312.   (t "$B!$(B"))
  313.  
  314. ;;; Escape character to Zenkaku inputs
  315.  
  316. (defvar zenkaku-escape "Z")
  317.  
  318. ;;; Escape character to Hankaku inputs
  319.  
  320. (defvar hankaku-escape "~")
  321. ;;;
  322. ;;; Zenkaku inputs
  323. ;;;
  324.  
  325. (its-defrule (concat zenkaku-escape "0") "$B#0(B")
  326. (its-defrule (concat zenkaku-escape "1") "$B#1(B")
  327. (its-defrule (concat zenkaku-escape "2") "$B#2(B")
  328. (its-defrule (concat zenkaku-escape "3") "$B#3(B")
  329. (its-defrule (concat zenkaku-escape "4") "$B#4(B")
  330. (its-defrule (concat zenkaku-escape "5") "$B#5(B")
  331. (its-defrule (concat zenkaku-escape "6") "$B#6(B")
  332. (its-defrule (concat zenkaku-escape "7") "$B#7(B")
  333. (its-defrule (concat zenkaku-escape "8") "$B#8(B")
  334. (its-defrule (concat zenkaku-escape "9") "$B#9(B")
  335.  
  336. (its-defrule (concat zenkaku-escape "A") "$B#A(B")
  337. (its-defrule (concat zenkaku-escape "B") "$B#B(B")
  338. (its-defrule (concat zenkaku-escape "C") "$B#C(B")
  339. (its-defrule (concat zenkaku-escape "D") "$B#D(B")
  340. (its-defrule (concat zenkaku-escape "E") "$B#E(B")
  341. (its-defrule (concat zenkaku-escape "F") "$B#F(B")
  342. (its-defrule (concat zenkaku-escape "G") "$B#G(B")
  343. (its-defrule (concat zenkaku-escape "H") "$B#H(B")
  344. (its-defrule (concat zenkaku-escape "I") "$B#I(B")
  345. (its-defrule (concat zenkaku-escape "J") "$B#J(B")
  346. (its-defrule (concat zenkaku-escape "K") "$B#K(B")
  347. (its-defrule (concat zenkaku-escape "L") "$B#L(B")
  348. (its-defrule (concat zenkaku-escape "M") "$B#M(B")
  349. (its-defrule (concat zenkaku-escape "N") "$B#N(B")
  350. (its-defrule (concat zenkaku-escape "O") "$B#O(B")
  351. (its-defrule (concat zenkaku-escape "P") "$B#P(B")
  352. (its-defrule (concat zenkaku-escape "Q") "$B#Q(B")
  353. (its-defrule (concat zenkaku-escape "R") "$B#R(B")
  354. (its-defrule (concat zenkaku-escape "S") "$B#S(B")
  355. (its-defrule (concat zenkaku-escape "T") "$B#T(B")
  356. (its-defrule (concat zenkaku-escape "U") "$B#U(B")
  357. (its-defrule (concat zenkaku-escape "V") "$B#V(B")
  358. (its-defrule (concat zenkaku-escape "W") "$B#W(B")
  359. (its-defrule (concat zenkaku-escape "X") "$B#X(B")
  360. (its-defrule (concat zenkaku-escape "Y") "$B#Y(B")
  361. (its-defrule (concat zenkaku-escape "Z") "$B#Z(B")
  362.  
  363. (its-defrule (concat zenkaku-escape "a") "$B#a(B")
  364. (its-defrule (concat zenkaku-escape "b") "$B#b(B")
  365. (its-defrule (concat zenkaku-escape "c") "$B#c(B")
  366. (its-defrule (concat zenkaku-escape "d") "$B#d(B")
  367. (its-defrule (concat zenkaku-escape "e") "$B#e(B")
  368. (its-defrule (concat zenkaku-escape "f") "$B#f(B")
  369. (its-defrule (concat zenkaku-escape "g") "$B#g(B")
  370. (its-defrule (concat zenkaku-escape "h") "$B#h(B")
  371. (its-defrule (concat zenkaku-escape "i") "$B#i(B")
  372. (its-defrule (concat zenkaku-escape "j") "$B#j(B")
  373. (its-defrule (concat zenkaku-escape "k") "$B#k(B")
  374. (its-defrule (concat zenkaku-escape "l") "$B#l(B")
  375. (its-defrule (concat zenkaku-escape "m") "$B#m(B")
  376. (its-defrule (concat zenkaku-escape "n") "$B#n(B")
  377. (its-defrule (concat zenkaku-escape "o") "$B#o(B")
  378. (its-defrule (concat zenkaku-escape "p") "$B#p(B")
  379. (its-defrule (concat zenkaku-escape "q") "$B#q(B")
  380. (its-defrule (concat zenkaku-escape "r") "$B#r(B")
  381. (its-defrule (concat zenkaku-escape "s") "$B#s(B")
  382. (its-defrule (concat zenkaku-escape "t") "$B#t(B")
  383. (its-defrule (concat zenkaku-escape "u") "$B#u(B")
  384. (its-defrule (concat zenkaku-escape "v") "$B#v(B")
  385. (its-defrule (concat zenkaku-escape "w") "$B#w(B")
  386. (its-defrule (concat zenkaku-escape "x") "$B#x(B")
  387. (its-defrule (concat zenkaku-escape "y") "$B#y(B")
  388. (its-defrule (concat zenkaku-escape "z") "$B#z(B")
  389.  
  390. (its-defrule (concat zenkaku-escape " ")  "$B!!(B")
  391. (its-defrule (concat zenkaku-escape "!")  "$B!*(B")
  392. (its-defrule (concat zenkaku-escape "@")  "$B!w(B")
  393. (its-defrule (concat zenkaku-escape "#")  "$B!t(B")
  394. (its-defrule (concat zenkaku-escape "$")  "$B!p(B")
  395. (its-defrule (concat zenkaku-escape "%")  "$B!s(B")
  396. (its-defrule (concat zenkaku-escape "^")  "$B!0(B")
  397. (its-defrule (concat zenkaku-escape "&")  "$B!u(B")
  398. (its-defrule (concat zenkaku-escape "*")  "$B!v(B")
  399. (its-defrule (concat zenkaku-escape "(")  "$B!J(B")
  400. (its-defrule (concat zenkaku-escape ")")  "$B!K(B")
  401. (its-defrule (concat zenkaku-escape "-")  "$B!](B")
  402. (its-defrule (concat zenkaku-escape "=")  "$B!a(B")
  403. (its-defrule (concat zenkaku-escape "`")  "$B!.(B")
  404. (its-defrule (concat zenkaku-escape "\\") "$B!o(B")
  405. (its-defrule (concat zenkaku-escape "|")  "$B!C(B")
  406. (its-defrule (concat zenkaku-escape "_")  "$B!2(B")
  407. (its-defrule (concat zenkaku-escape "+")  "$B!\(B")
  408. (its-defrule (concat zenkaku-escape "~")  "$B!1(B")
  409. (its-defrule (concat zenkaku-escape "[")  "$B!N(B")
  410. (its-defrule (concat zenkaku-escape "]")  "$B!O(B")
  411. (its-defrule (concat zenkaku-escape "{")  "$B!P(B")
  412. (its-defrule (concat zenkaku-escape "}")  "$B!Q(B")
  413. (its-defrule (concat zenkaku-escape ":")  "$B!'(B")
  414. (its-defrule (concat zenkaku-escape ";")  "$B!((B")
  415. (its-defrule (concat zenkaku-escape "\"") "$B!I(B")
  416. (its-defrule (concat zenkaku-escape "'")  "$B!G(B")
  417. (its-defrule (concat zenkaku-escape "<")  "$B!c(B")
  418. (its-defrule (concat zenkaku-escape ">")  "$B!d(B")
  419. (its-defrule (concat zenkaku-escape "?")  "$B!)(B")
  420. (its-defrule (concat zenkaku-escape "/")  "$B!?(B")
  421. (its-defrule (concat zenkaku-escape ",")  "$B!$(B")
  422. (its-defrule (concat zenkaku-escape ".")  "$B!%(B")
  423.  
  424. ;;;
  425. ;;; Hankaku inputs
  426. ;;;
  427.  
  428. ;;(defvar escd '("-" "," "." "/" ";" ":" "[" "\\" "]" "^" "~"))
  429. ;;(its-defrule '("x" escd)  '(escd))
  430.  
  431.  
  432. (defvar digit-characters 
  433.    '( "1"  "2"  "3"  "4" "5"  "6"  "7"  "8"  "9"  "0" ))
  434.  
  435. (defvar symbol-characters 
  436.    '( " "  "!"  "@"  "#"  "$"  "%"  "^"  "&"  "*"  "("  ")"
  437.       "-"  "="  "`"  "\\" "|"  "_"  "+"  "~" "["  "]"  "{"  "}"
  438.       ":"  ";"  "\"" "'"  "<"  ">"  "?"  "/"  ","  "." ))
  439.  
  440. (defvar downcase-alphabets 
  441.    '("a" "b" "c" "d" "e" "f" "g" "h" "i" "j" "k" "l" "m" "n"
  442.      "o" "p" "q" "r" "s" "t" "u" "v" "w" "x" "y" "z"))
  443.  
  444. (defvar upcase-alphabets
  445.    '("A" "B" "C" "D" "E" "F" "G" "H" "I" "J" "K" "L" "M" "N"
  446.      "O" "P" "Q" "R" "S" "T" "U" "V" "W" "X" "Y" "Z"))
  447.  
  448. (dolist (digit digit-characters)
  449.   (its-defrule (concat hankaku-escape digit)  digit))
  450.  
  451. (dolist (symbol symbol-characters)
  452.   (its-defrule (concat hankaku-escape symbol) symbol))
  453.  
  454. (dolist (downcase downcase-alphabets)
  455.   (its-defrule (concat hankaku-escape downcase) downcase))
  456.  
  457. (dolist (upcase upcase-alphabets)
  458.   (its-defrule (concat hankaku-escape upcase) upcase))
  459.  
  460. ;;; proposal key bindings for JIS symbols
  461. ;;; 90.3.2  by jiro@math.keio.ac.jp (TANAKA Jiro)
  462.  
  463. (its-defrule   "z1"   "$B!{(B")    (its-defrule   "z!"   "$B!|(B")
  464. (its-defrule   "z2"   "$B"&(B")    (its-defrule   "z@"   "$B"'(B")
  465. (its-defrule   "z3"   "$B"$(B")    (its-defrule   "z#"   "$B"%(B")
  466. (its-defrule   "z4"   "$B""(B")    (its-defrule   "z$"   "$B"#(B")
  467. (its-defrule   "z5"   "$B!~(B")    (its-defrule   "z%"   "$B"!(B")
  468. (its-defrule   "z6"   "$B!y(B")    (its-defrule   "z^"   "$B!z(B")
  469. (its-defrule   "z7"   "$B!}(B")    (its-defrule   "z&"   "$B!r(B")
  470. (its-defrule   "z8"   "$B!q(B")    (its-defrule   "z*"   "$B!_(B")
  471. (its-defrule   "z9"   "$B!i(B")    (its-defrule   "z("   "$B!Z(B")
  472. (its-defrule   "z0"   "$B!j(B")    (its-defrule   "z)"   "$B![(B")
  473. (its-defrule   "z-"   "$B!A(B")    (its-defrule   "z_"   "$B!h(B")    ; z-
  474. (its-defrule   "z="   "$B!b(B")    (its-defrule   "z+"   "$B!^(B")
  475. (its-defrule   "z\\"  "$B!@(B")    (its-defrule   "z|"   "$B!B(B")
  476. (its-defrule   "z`"   "$B!-(B")    (its-defrule   "z~"   "$B!/(B")
  477.  
  478. (its-defrule   "zq"   "$B!T(B")    (its-defrule   "zQ"   "$B!R(B")
  479. (its-defrule   "zw"   "$B!U(B")    (its-defrule   "zW"   "$B!S(B")
  480. ; e
  481. (its-defrule   "zr"   "$B!9(B")    (its-defrule   "zR"   "$B!8(B")    ; zr
  482. (its-defrule   "zt"   "$B!:(B")    (its-defrule   "zT"   "$B!x(B")
  483. ; y u i o
  484. (its-defrule   "zp"   "$B")(B")    (its-defrule   "zP"   "$B",(B")    ; zp
  485. (its-defrule   "z["   "$B!X(B")    (its-defrule   "z{"   "$B!L(B")    ; z[
  486. (its-defrule   "z]"   "$B!Y(B")    (its-defrule   "z}"   "$B!M(B")    ; z]
  487.  
  488. ; a
  489. (its-defrule   "zs"   "$B!3(B")    (its-defrule   "zS"   "$B!4(B")
  490. (its-defrule   "zd"   "$B!5(B")    (its-defrule   "zD"   "$B!6(B")
  491. (its-defrule   "zf"   "$B!7(B")    (its-defrule   "zF"   "$B"*(B")
  492. (its-defrule   "zg"   "$B!>(B")    (its-defrule   "zG"   "$B!=(B")
  493. (its-defrule   "zh"   "$B"+(B")
  494. (its-defrule   "zj"   "$B"-(B")
  495. (its-defrule   "zk"   "$B",(B")
  496. (its-defrule   "zl"   "$B"*(B")
  497. (its-defrule   "z;"   "$B!+(B")    (its-defrule   "z:"   "$B!,(B")
  498. (its-defrule   "z\'"  "$B!F(B")    (its-defrule   "z\""  "$B!H(B")
  499.  
  500. ; z
  501. (its-defrule   "zx"   ":-")    (its-defrule   "zX"   ":-)")
  502. (its-defrule   "zc"   "$B!;(B")    (its-defrule   "zC"   "$B!n(B")    ; zc
  503. (its-defrule   "zv"   "$B"((B")    (its-defrule   "zV"   "$B!`(B")
  504. (its-defrule   "zb"   "$B!k(B")    (its-defrule   "zB"   "$B"+(B")
  505. (its-defrule   "zn"   "$B!l(B")    (its-defrule   "zN"   "$B"-(B")
  506. (its-defrule   "zm"   "$B!m(B")    (its-defrule   "zM"   "$B".(B")
  507. (its-defrule   "z,"   "$B!E(B")    (its-defrule   "z<"   "$B!e(B")
  508. (its-defrule   "z."   "$B!D(B")    (its-defrule   "z>"   "$B!f(B")    ; z.
  509. (its-defrule   "z/"   "$B!&(B")    (its-defrule   "z?"   "$B!g(B")    ; z/
  510.  
  511. ;;; Commented out by K.Handa.  Already defined in a different way.
  512. ;(its-defrule   "va"   "$B%t%!(B")
  513. ;(its-defrule   "vi"   "$B%t%#(B")
  514. ;(its-defrule   "vu"   "$B%t(B")
  515. ;(its-defrule   "ve"   "$B%t%'(B")
  516. ;(its-defrule   "vo"   "$B%t%)(B")
  517.